      testyn.lst      TESTYN v1.02(c) 1988 V Communica	 Sourcer Listing v2.13    18-Nov-89   9:22 pm   Page 1

  
				PAGE  59,132
  
				;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
				;лл								         лл
				;лл			        TESTYN				         лл
				;лл								         лл
				;лл      Created:   26-Mar-88					         лл
				;лл      Version:   1.02					         лл
				;лл      Passes:    5	       Analysis Options on: HQRS	         лл
				;лл      (c) 1988 V Communications				         лл
				;лл								         лл
				;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
  
  
				;--------------------------------------------------------------	seg_a  ----
  
				seg_a		segment	para public
						assume cs:seg_a , ds:seg_a , ss:stack_seg_b
  
  
				;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
				;
				;			Program Entry Point
				;
				;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
  
  
				testyn		proc	far
  
9DC4:0000			start:
9DC4:0000  EB 26				jmp	short loc_1		; (0028)
9DC4:0002  54 45 53 54 59 4E			db	'TESTYN v1.02'
9DC4:0008  20 76 31 2E 30 32
9DC4:000E  28 63 29 20 31 39	copyright	db	'(c) 1988 V Communications'
9DC4:0014  38 38 20 56 20 43
9DC4:001A  6F 6D 6D 75 6E 69
9DC4:0020  63 61 74 69 6F 6E
9DC4:0026  73
9DC4:0027  00					db	0
9DC4:0028			loc_1:						;  xref 9DC4:0000, 003B
9DC4:0028  B4 08				mov	ah,8
9DC4:002A  CD 21				int	21h			; DOS Services  ah=function 08h
										;  get keybd char al, no echo
9DC4:002C  0C 60				or	al,60h			; '`'
9DC4:002E  3C 79				cmp	al,79h			; 'y'
9DC4:0030  74 0B				je	loc_3			; Jump if equal
9DC4:0032  3C 6E				cmp	al,6Eh			; 'n'
9DC4:0034  74 0B				je	loc_4			; Jump if equal
9DC4:0036  9A 9DD5:0000				call	far ptr sub_1		; (9DD5:0000)
9DC4:003B  EB EB				jmp	short loc_1		; (0028)
9DC4:003D			loc_3:						;  xref 9DC4:0030
9DC4:003D  B0 01				mov	al,1
9DC4:003F  EB 02				jmp	short loc_5		; (0043)
9DC4:0041			loc_4:						;  xref 9DC4:0034
9DC4:0041  32 C0				xor	al,al			; Zero register
9DC4:0043			loc_5:						;  xref 9DC4:003F
     testyn.lst      TESTYN v1.02(c) 1988 V Communica	 Sourcer Listing v2.13    18-Nov-89   9:22 pm   Page 2

9DC4:0043  B4 4C				mov	ah,4Ch			; 'L'
9DC4:0045  CD 21				int	21h			; DOS Services  ah=function 4Ch
										;  terminate with al=return code
9DC4:0047  0009[00]				db	9 dup (0)
  
				testyn		endp
  
				seg_a		ends
  
  
  
				;--------------------------------------------------------- stack_seg_b  ---
  
				stack_seg_b	segment	para stack
  
9DC9:0000  00C0[00]				db	192 dup (0)
  
				stack_seg_b	ends
  
  
  
				;--------------------------------------------------------------	seg_c  ----
  
				seg_c		segment	para public
						assume cs:seg_c , ds:seg_c , ss:stack_seg_b
  
  
				;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
				;			       SUBROUTINE
				;
				;         Called from:	 9DC4:0036
				;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
  
				sub_1		proc	far
9DD5:0000  0E					push	cs
9DD5:0001  1F					pop	ds
9DD5:0002  FA					cli				; Disable interrupts
9DD5:0003  8B 16 0038				mov	dx,data_5		; (9DD5:0038=61h)
9DD5:0007  EC					in	al,dx			; port 61h, 8255 port B, read
9DD5:0008  24 FE				and	al,0FEh
9DD5:000A  8B 1E 003C				mov	bx,data_7		; (9DD5:003C=50h)
9DD5:000E			loc_6:						;  xref 9DD5:0021
9DD5:000E  0C 02				or	al,2
9DD5:0010  EE					out	dx,al			; port 61h, 8255 B - spkr, etc
9DD5:0011  8B 0E 003A				mov	cx,data_6		; (9DD5:003A=64h)
  
9DD5:0015			locloop_7:					;  xref 9DD5:0015
9DD5:0015  E2 FE				loop	locloop_7		; Loop if cx > 0
  
9DD5:0017  24 FD				and	al,0FDh
9DD5:0019  EE					out	dx,al			; port 61h, 8255 B - spkr, etc
9DD5:001A  8B 0E 003A				mov	cx,data_6		; (9DD5:003A=64h)
  
9DD5:001E			locloop_8:					;  xref 9DD5:001E
9DD5:001E  E2 FE				loop	locloop_8		; Loop if cx > 0
  
9DD5:0020  4B					dec	bx
     testyn.lst      TESTYN v1.02(c) 1988 V Communica	 Sourcer Listing v2.13    18-Nov-89   9:22 pm   Page 3

9DD5:0021  75 EB				jnz	loc_6			; Jump if not zero
9DD5:0023  FB					sti				; Enable interrupts
9DD5:0024 .BA 002C				mov	dx,offset data_4	; (9DD5:002C=59h)
9DD5:0027  B4 09				mov	ah,9
9DD5:0029  CD 21				int	21h			; DOS Services  ah=function 09h
										;  display char string at ds:dx
9DD5:002B  CB					retf				; Return far
				sub_1		endp
  
9DD5:002C  59 65 73 20 6F 72	data_4		db	'Yes or No ?$'		;  xref 9DD5:0024, 0029
9DD5:0032  20 4E 6F 20 3F 24
9DD5:0038  0061			data_5		dw	61h			;  xref 9DD5:0003
9DD5:003A  0064			data_6		dw	64h			;  xref 9DD5:0011, 001A
9DD5:003C  0050			data_7		dw	50h			;  xref 9DD5:000A
  
				seg_c		ends
  
  
  
						end	start
     testyn.lst      TESTYN v1.02(c) 1988 V Communica	 Sourcer Listing v2.13    18-Nov-89   9:22 pm   Page 4

  
				ББББББББББББББББББББ CROSS REFERENCE - KEY ENTRY POINTS БББББББББББББББББББ
  
				    seg:off    type	   label
				   ---- ----   ----   ---------------
				   9DC4:0000   far    start
  
